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I NTROOUCXION 


^ PS/8 FOCAL.1971 MAKES THE DEVICE-INDEPENDENT FILE HANDLING FACILITIES 
^ OF PS/8 DIRECTLV AVAILABLE TO FOCAL USERS. IT IS A COLLECTION OF 

PATCHES TO FOCAL. 1969 -MOST PROGRAMS WRITTEN IN FOCAL. 1969 WILL BE 

PROCESSED BV PS/8 FOCAL. 1971 <SEE LIST OF DIFFERENCES ON PAGE 2 >. 


PS/8 FOCAL. 1971 SOURCE AND BINARV FILES PLUS DEMONSTRATION PROGRAMS ARE 
AVAILABLE ON DECTAPE OR PAPER TAPE. ENCLOSE OR AN EXTRA DECTAPE TO 
COVER HANDLING AND MAILING. <ADD tlB FOR DECTAPE VERSION IF VOU DO NOT 
INCLUDE VOUR OWN PS/8 FORMATTED DECTAPE. > SEND REQUESTS TO: 

SOFTWARE DEVELOPMENT GROUP. OMSI. PORTLAND. OREGON 97221. 


s:ui3Ge:sxI oiMS f’ofs: novices : 

THIS MANUAL IS INTENDED AS A REVIEWING AID FOR PERSONS WHO ALREADV HAVE 
SOME FAMILIARITV WITH FOCAL. A GOOD INTRODUCTION TO FOCAL PROGRAMMING 
IS CHAPTER 11 OF ^PROGRAMMING LANGUAGES^ C1970. f2>.- ALSO USEFUL IS 
THE PS/8 USER'S GUIDE <NO. DEC-08-MEFR-D. BOTH MAV BE PURCHASED 

FROM THE DEC PROGRAM LIBRARY. BLDG. 3-5. MAVNARD. MASS. 01754. 


TO USE PS/8 FOCAL. 1971 ON DECTAPE SYSTEMS <DISK USERS SEE PAGE 24>: 

1> BOOTSTRAP INTO PS/8 MONITOR; 

2) AT MULTIPLE DECTAPE INSTALLATIONS. THE AUTHORS SUGGEST THAT THE PS/8 
COMMAND 'ASSIGN DTAl: DSK:' BE GIVEN TO PERMIT THE USER TO USE HIS 
OWN DECTAPE AS THE DEFAULT DEVICE <DSK:); THIS IS REQUIRED BV THE 
'HELP' PACKAGE AVAILABLE ON DECTAPE FOR PS/8 FOCAL. 1971; 

3> TYPE 'RUN DSK: PFOCAL'. 

4> THE INITIAL DIALOGUE WILL ASK IF VOU WISH TO RETAIN STANDARD FEATURES 
OF PS/8 FOCAL. 1971. A 'YES' WILL PROVIDE 3500 CHARACTERS OF PROGRAM 
SPACE. 98 VARIABLES. 10 DIGIT PRECISION. FILES. AND TRIG FUNCTIONS. 
SEE 'INITIAL DIALOGUE' ON PAGE 22 FOR OTHER OPTIONS; 

5> THE 'LIBRARY EXIT' COMMAND WILL RETURN VOU TO THE PS/8 MONITOR; 

6> A 'HELP' PACKAGE FOR PS/8 FOCAL. 1971 IS AVAILABLE ON DECTAPE, MOUNT 
THE HELP TAPE ON DECTAPE DRIVE #1; MOUNT THE PS/8 SYSTEM TAPE ON 
DRIVE #0. VOU MAY ENTER 'HELP' WHILE WRITING A PS/8 FOCAL PROGRAM 
BV TYPING THE COMMAND 'LG HELP'. VOUR PROGRAM WILL BE SAVED UNDER 
THE NAME 'FOCAL. TM'. WHEN VOU DESIRE NO MORE HELP. VOU WILL BE 
RETURNED TO VOUR OWN PROGRAM. SEE ALSO THE HELP INDEX ON PAGE 27; 

7) CTRL/P IS PS/8 FOCAL'S BREAK CHARACTER. 


THIS MANUAL WAS TYPESET ON AN INEXPENSIVE MATRIX PRINTER MADE BV; 

CEMTFaOIM I CS Of=IXF^ COMI='LJTER: CORF*, 
OIME WFIL-L-. SXREEX 

MLJOSON.. MEUl HFAMRSm RE 03 ;Qi 5 :i, 

XELERMOIME < ^©3: > SS3:—©d-lLi 
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OMRISIQES F'ROM F'OCFIl—.. dLS»eS» : 

PROGRAMS WRITTEN IN FOCAL. 1969 SHOULD REQUIRE ONLY ONE CHANGE TO RUN 
UNDER PS/8 FOCAL. 1971; 

THE INPUT DEVICE IS SWITCHED TO THE HIGH SPEED PAPER TAPE READER 
WITH THE 'OPEN INPUT PTR:' COMMAND AND SWITCHED BACK TO THE 
TERMINAL WITH 'OPEN INPUT TTVi.ECHO' INSTEAD OF WITH THE '*' 
COMMAND OF FOCAL. 1969. 


OTHER CHANGES INCLUDE: 

1> EXTENDED LIBRARY FEATURES INCLUDING DEVICE-INDEPENDENT CHAINING 
AND SUBROUTINE CALLS BETWEEN PROGRAMS. 

2> FILE READING AND WRITING COMMANDS. lO DIGIT PRECISION. OR STANDARD 
TRIG FUNCTIONS MAY BE DELETED BY THE INITIAL DIALOGUE TO ALLOW UP 
TO 222 VARIABLES WITH 5500 CHARACTER PROGRAMS; WITH ALL FEATURES 
RETAINED. 98 VARIABLES AND 3508 CHARACTERS REMAIN. SEE PAGE 22. 

3> COMPUTED LINE NUMBERS; SEE PAGE 20. 

4> TABULATION. 

5> IMPROVED DISTRIBUTION AND 'RANDOM' INITIALIZATION OF 'FRANO'. 

THE PSEUDO-RANDOM NUMBER FUNCTION. 

6> UNLIMITED LINE LENGTHS. 

7> CHARACTER MANIPULATIONS HANDLED WITH 'FINO' AND 'FOUTO'. 

8> FSGN<0>=0 CFSQN<0>=1 IN FOCAL. 19693 

9> 'ERASE ALL' AND 'MODIFY' DO NOT ERASE VARIABLES. 

10> IN ADDITION TO THE FDISO DISPLAY FUNCTION FOR DEC'S 34D DISPLAY. 
VERSIONS ARE AVAILABLE WITH DISPLAY AND JOYSTICK FUNCTIONS FOR 
THE TEKTRONIX T-4002 GRAPHICS TERMINAL. 

11> 3 SPECIAL S'ARIABLES ARE PROTECTED FROM THE 'ERASE' COMMAND- 

'!'. '"'.AND '#'. '#' IS SET TO 1 BY THE INITIAL DIALOGUE IF 

ALL OPTIONAL FEATURES OF PS/8 FOCAL ARE DELETED AND TO 2310 IF 
STANDARD FEATURES ARE RETAINED; SEE 'INITIAL DIALOGUE'. PAGE 22. 

12> PS/8 FOCAL'S STARTING ADDRESS IS 10266 <FIELD 1>. 




crR:L_^i=- 


the: EiREf=tK cmrrficxer: 




NOTE: PS/8 FOCAL DATA FILES ARE COMPATIBLE WITH EDIT AND TECO-8; 

HOWEVER. PS/8 FOCAL PROGRAM FILES ARE SAVED AS CORE IMAGES. 
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COMMfRilsIOS 


♦♦♦ DIRECT COMMfiNDS ARE GIVEN WHILE FOCAL IS IN COMMAND MODE. THEY 
ARE TYPED WITHOUT LINE NUMBERS AND FOCAL EXECUTES THEM AS SOON AS THE 
RETURN BUTTON IS HIT - FOR EXAMPLE: 


♦TYPE 2+4, ! <FOCAL OUTPUTS THE VALUE OF 3+4> 

7. BBBB 

+ 


<OR SEVERAL COMMANDS MAY BE GIVEN IN SEQUENCE:> 

♦SET X=3 
♦SET V»2 
♦TYPE 3+X+Y, ! 

8. 0000 

♦ 


♦♦♦ INDIRECT COMMANDS ARE USED FOR LONGER PROGRAMS. THEY ARE TYPED 
FOLLOWING LINE NUMBERS BETWEEN 1.01 AND 31.99 NOT INCLUDING INTEGERS 
AND MAY BE EXECUTED BY A DIRECT ^GO': 


♦2. 1 SET X*3 
♦2. 2 SET Y=2 
♦2. 3 TYPE 3+X+Y, ! 
♦GO 

8 . 0000 

♦ 


COMMf=llslI> I=-0R:M«X : 


THE GENERAL FORM OF EACH IS GIVEN FOLLOWED BY EXAMPLES IN WHICH: 

<> ENCLOSE REQUIRED TERMS. C 3 ENCLOSE OPTIONAL TERMS. 
<> ENCLOSE COMMENTS. ONE LETTER ABBREVIATIONS MAY BE 
USED FOR COMMAND WORDS. X REPRESENTS A VARIABLE. El, 

E2 AND E3 ARE ARITHMETIC EXPRESSIONS. LI, L2 AND L3 
ARE LINE NUMBERS. Gl IS EITHER A LINE OR GROUP NUMBER. 
LI, L2, L3 AND Gl MAY BE REPLACED WITH ANY ARITHMETIC 
EXPRESSION NOT BEGINNING WITH THE LETTER 'R'. 

MOST COMMANDS MUST BE FOLLOWED BY A SPACE. 
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I 

r^ 

•:^DM| 

psjitl 

r^ 



EL-EMENXRRV COMMFlMOS 


RSK 


♦RSK C"PRINT OUT IN QUOTES"3 XC^V^ZD <INPUT VRLUES FOR VARIABLES) 


RSK V 
R Z 

R B2.X. NUMBER 
R "HOW MRNV? "M 


<EXPECTS R VALUE TO BE INPUT FOR V> 

<R IS THE ABBREVIATION FOR ^RSKO 
CEXPECTS THREE VRLUES TO BE INPUT) 
<TVPES "HOW MRNV" THEN SETS M EQUAL TO 


THE RESPONSE) 


♦ * >♦« SPACE/ COMMA OR CARRIAGE RETURN WILL TERMINATE EACH NUMBER 
TYPE A "4" <BRCK ARROW) TO ERASE A PARTIALLY ENTERED NUMBER WHICH MAY 
THEN BE RE-ENTERED. ALT MODE WILL CAUSE FOCAL TO LEAVE THE VARIABLE 

WITH ITS FORMER VALUE. IF "ASKING" FROM A FILE - A SPACE/ COMMA OR 

OTHER DELIMITER MUST PRECEDE A NEGATIVE SIGN/ "-"/ OR THE NUMBER WILL BE 
READ AS POSITIVE. RESPONDING TO INITIAL DIALOGUE WITH "YES" OR "4/S" 
WILL REMEDY THIS BY OUTPUTTING A LEADING SPACE WHEN USING "TYPE". 


•^COMMENT 

COMMENT SORT 
C 

CONTINUE 


COMMEMT" 

<LINES BEGINNING WITH A "C" WILL BE IGNORED) 

<COMMENTS ARE USED TO DESCRIBE PROGRAMS) 
<ABBREVIATION> 

<DUMMY LINE) 


OO 


t<DO CLINE OR GROUP NUMBER] 


<SUBROUTINE CALL) 


DO 7. 24 
D 4. 48 
DO 7 
DO ALL 
D Ql; D 7. 6 


<TELLS FOCAL TO EXECUTE LINE 7. 24 THEN RETURN 
TO THE COMMAND FOLLOWING THE "DO") 

(EXECUTES GROUP 7) 

(STARTS EXECUTION OF PROGRAM AT FIRST LINE) 
(EXECUTES LINE OR GROUP Ql THEN LINE 7. 6) 


* ♦ * DO NOT USE AN ARITHMETIC EXPRESSION STARTING WITH "A" AS 
A COMPUTED LINE NUMBER OR IT WILL "DO ALL". 




♦ERASE CLINE OR GROUP NUMBER] (ZEROES VARIABLES IF NO NUMBER GIVEN) 


ERASE 2.17 
E 3 
ERASE 
ERASE ALL 


(DELETES LINE 2. 17 FROM INDIRECT PROGRAM) 
(DELETES ALL GROUP 3 LINES) 

(ZEROES ALL VARIABLES) 

(ERASES ENTIRE INDIRECT PROGRAM) 


♦ ♦ ♦ "ERASE" MUST BE THE LAST COMMAND ON A LINE. "ERASE <LINE OR 
GROUP NUMBER> WILL CAUSE FOCAL TO RETURN TO COMMAND MODE AFTER ERASING. 
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F-OFS: 

♦FOR X=E1C > E2 E3; C COMMAND TO BE REPEATED <E3“E1>/E2+1 TIMES 3 

FOR P=1>7jTVPE 3 <WILL TYPE A '3' SEVEN T1MES> 

FOR J=»l> 5; DO 17. 1 <WILL DO LINE 17. 1 FIVE TIMES> 

F X=2.2.8iT X*10 <WILL TYPE '20 40 60 80'> 

FOR 2=1. YiDO 7 <WILL DO GROUP 7. Y TIMES) 

* * >»« THE 'FOR' COMMAND IS REPEATED-ADDING 1 <OR E2> TO El EACH 

CYCLE UNTIL El EXCEEDS E3. EXECUTION THEN GOES TO THE NEXT LINE. 


GO 


♦GO CLINE NUMBER] <STARTS EXECUTING PROGRAM AT DESIGNATED LINE) 


GO 

G 

GOTO 3. 1 
GO ? 


<STARTS EXECUTING INDIRECT PROGRAM AT FIRST LINE) 

<ABBREVIATION) 

<STARTS EXECUTING PROGRAM AT LINE 3. 1) 

<'TRACE FEATURE' — PRINTS PROGRAM DURING EXECUTION 
UNTIL NEXT OCCURRENCE OF '?') 

<STARTS EXECUTING PROGRAM AT LINE X) 


I F=’ 

♦IF <E1)L1C.L2. L3 3 <QOES TO LINE LI. L2. OR L3 DEPENDING ON WHETHER 

El IS -. 0. OR +) 

IF <X)2. 7.1. 2. 3. 8 <FOCAL GOES TO LINE 2. 7. 1. 2 OR 3. 8 IF X IS -. 0 OR +) 
I <H-5>1. 3.1. 5. 1. 7 <' IF' CHECKS THE VALUE INSIDE THE PARENTHESES) 

I <B-3)2. 8. 7. 9; Q <'QUITS' EXECUTION IF <B-3) IS POSITIVE) 

I <2)2. 7; T 21 <IF 2 IS NEGATIVE THEN GO TO 2.7} ELSE 'TYPE 21') 

I <G)2. 1. Y. 2. 4 <IF G=0 THEN GOES TO LINE Y) 


♦MODIFY <LINE NUMBER> 


MOOIf=‘V 
<EDIT LINE) 


'MODIFY 3.72' FOLLOWED BY A CARRIAGE RETURN AND A CHARACTER 'X' WILL 
OUTPUT LINE 3.72 THROUGH ITS FIRST 'X'. YOU NAY THEN: 

1) INPUT THE REST OF THE REVISED LINE AND HIT 'RETURN' 

2) USE 'RUB OUT' TO ERASE SINGLE CHARACTERS 

3) HIT 'LINE FEED' TO KEEP REMAINDER OF OLD LINE 

4) HIT CTRL/L TO GO TO NEXT OCCURRENCE OF 'X' 

5) HIT CTRL/BELL TO CHANGE SEARCH CHARACTER; THEN HIT NEW CHARACTER 

6) HIT '4' TO KILL LINE OVER TO LEFT MARGIN 


♦QUIT 


GSU I X 

<TERMINATES PROGRAM EXECUTION) 


<RBBREVIATION) 



m 
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REXURIM 

♦RETURN <CRUSES ESCAPE FROM A SUBROUTINE TO THE COMMAND 

FOLLOWING THE CALLING 'DO^ OR 'LIBRARY GOSUB'> 

R <RBBREVIRTION> 


♦SET V=<NUMBER. VARIABLE OR EXPRESSION> <SETS VARIABLE VALUES> 


SET V=37 
S A=110/P+32 
S V=V+1 
S Z=»# 

S #=0 
S X«FIN<> 

S DUMMV«FOUT<203> 


<CAUSES 'V' TO TAKE THE VALUE 37> 

<CAUSES 'A' TO ASSUME THE VALUE OF 110/P+32> 

<SETS THE NEW VALUE OF V EQUAL TO 1 PLUS OLD VALUE> 
<SETS Z EQUAL TO VALUE OF PROTECTED VARIABLE 
<ONLV WAV TO ZERO PROTECTED VARIABLE '#'> 

<SETS X TO DECIMAL ASCII CODE OF NEXT CHARACTER INPUT> 
<OUTPUTS LETTER 'K' AND SETS DU=203> 


XVRE 


♦TYPE CNUMBERS. VARIABLES. EXPRESSIONS. TEXT IN QUOTES. !.#. OR X3 


TYPE 3 
T X 

T X/V-l 
T "HI THERE" 

T ! 

T "A"!"B"!"C"! 
T # 

T <#> 

T "RNS: ".26-*-5 
T ! :8. "♦" 

T $ 

T Xia 07 
T X 


<OUTPUTS A 3 ON THE TERMINAL OR OTHER OUTPUT DEVICE) 
<OUTPUTS THE VALUE OF X> 

<OUTPUTS THE VALUE OF THE EXPRESSION X/Y-1) 

<OUTPUTS THE GREETING 'HI THERE') 

<OUTPUTS A CARRIAGE RETURN/LINE FEED) 

(OUTPUTS CHARACTERS 'A'. 'B' AND 'C' VERTICALLY) 
(OUTPUTS A CARRIAGE RETURN WITHOUT LINE FEED) 
(OUTPUTS VALUE OF SYSTEM STATUS VARIABLE. '#') 
(OUTPUTS 'ANS: 31') 

(OUTPUTS RETURN/LINE FEED THEN A '♦' IN POSITION 8) 
(OUTPUTS THE SYMBOL TABLE) 

(SETS THE OUTPUT FORMAT TO ALLOW UP TO 10 DIGITS 
TO BE PRINTED. OF WHICH 7 MAY BE DECIMAL PLACES) 
(FORMATS OUTPUT IN POWERS-OF-TEN NOTATION) 


♦ ♦ ♦ THE INITIAL DIALOGUE'S STANDARD FEATURES OUTPUTS A LEADING SPACE 

BEFORE EACH NUMBER IS 'TYPED' - THIS PERMITS NEGATIVE NUMBERS TO BE 

READ AS NEGATIVE FROM A FILE WRITTEN IN THIS MANNER. FEATURE 6 PERMITS 
OUTPUTTING A '=' AS IN FOCAL. 1969 (NOT RECOMMENDED FOR WRITING FILES). 


WRI XE 


♦WRITE CGROUP OR LINE NUMBER! (LISTS INDIRECT PROGRAM) 


WRITE 2. 27 
W 2 

WRITE ALL 
W A 
W 

W 01 


(OUTPUTS LINE 2. 27 OF THE INDIRECT PROGRAM) 
(OUTPUTS GROUP 2) 

(OUTPUTS ENTIRE INDIRECT PROGRAM) 
(ABBREVIATION FOR 'WRITE ALL') 

(ABBREVIATION FOR 'WRITE ALL') 

(OUTPUTS GROUP OR LINE GIVEN BY 'Gl') 


♦ ♦ ♦ DO NOT USE AN ARITHMETIC EXPRESSION STARTING WITH 'A' AS A 
COMPUTED LINE NUMBER OR IT WILL 'WRITE ALL'. 'WRITE' MUST BE THE 
LAST COMMAND ON A LINE. 
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F>S^& OEVICe NFIMES : 

SVS: SVSTEM DEVICE <DSK: IN DISK SYSTEM; DTfl©: IN DECTRPE SYSTEM) 

DSK: THE DISK IN DISK SYSTEMS; DECTflPE #0 IN DECTfiPE SYSTEMS 

<THE AUTHORS SUGGEST THAT DECTAPE SYSTEMS 'ASSIGN DTA1:DSK:') 
<'DSK:' IS ASSUMED IF A DEVICE IS NOT SPECIFIED) 

DTA0: - DTA7: DECTAPE DRIVES 

LTA0; - LTA7; LINCTAPE DRIVES 

MTR0: - MTA7: MAGTAPE DRIVES 

PTR: HIGH SPEED READER 

PTP: HIGH SPEED PUNCH 

LPT: LINE PRINTER 

TTV: TERMINAL 

REFERENCING A NON-EXISTENT DEVICE MAY CAUSE THE COMPUTER TO ENTER AN 
INFINITE LOOP WAITING FOR THE DEVICE. RECOVERY IS MADE BY USING THE 
SWITCH REGISTER - LOAD ADD 10200 AND START. 


L-XOr:«=4r:v cfil»l 

♦LIBRARY CALL CDEVICE:KPROGRAM NAME> <LOADS SAVED PROGRAM) 

LIBRARY CALL CHISQR <LOADS PROGRAM 'CHISQR. FC' FROM DSK:) 

L C DTR3:PRGRAM <LOADS 'PRGRAM. FC' FROM DECTAPE DRIVE #3) 

L C TEST! <LOADS 'TESTl. FC' FROM DSK:) 

♦ ♦ ♦ FOCAL RETURNS TO COMMAND MODE FOLLOWING A 'LIBRARY CALL'. 


L-IBRFIRV OEIl.EITB 

♦LIBRARY DELETE CDEVICE:3<PROGRAM NAME> <DELETES FILE FROM DEVICE) 

LIBRARY DELETE TTEST <DELETES PROGRAM 'TTEST. FC' FROM DSK:) 

L D DTA7:PR0G <DELETES 'PROG. FC' FROM DECTRPE DRIVE #7) 

L D HOLD. FD <DELETES DATA FILE 'HOLD. FD') 

♦ ♦ ♦ LIBRARY DELETE ASSUMES '. FC' FILE NAME EXTENSION; OTHERS MUST 
BE SPECIFIED. 'LIBRARY DELETE' CLOSES ANY OPEN OUTPUT FILES. 


QOSLJB 

♦LIBRARY QOSUB CDEVICE: KPROGRAM NAME> CGROUP OR LINE NUMBER3 

LIBRARY QOSUB TEXT 13. 7 <L1NE 13. 7 OF 'TEXT. FC'' BECOMES SUBROUTINE WHICH 

RETURNS TO THE COMMAND FOLLOWING 'QOSUB') 

L Q SUMSQR <TREATS WHOLE 'SUMSQR. FC' PROGRAM AS SUBROUTINE) 

L Q DTA3:X. Y 7 (TREATS GROUP 7 OF 'X. Y' LIKE A 'DO' SUBROUTINE) 

L Q BOBO Q1 ('QOSUB' TO LINE OR GROUP EQUAL TO VALUE OF Ql. 

DO NOT USE EXPRESSIONS BEGINNING WITH 'A'. ) 

♦ ♦ ♦ IF THE VERSION OF A PROGRAM ISSUING A 'QOSUB' IS NOT SAVED^ ANY 
OPEN OUTPUT FILE IS CLOSED AND THE PROGRAM IS SAVED AS 'FOCAL. TM' BEFORE 
EXECUTION OF THE 'QOSUB'. 
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L.IBRRRV l-ISX 


'**LIBRflRV LIST C DEVICE: DC FIRST FILE NRME TO BE LISTED! 

<LISTS PROQRRM RND DRTR FILE NRMES MITH FOCBL 
EXTENSIONS FC'=PROQRftMi FD'«DflTfi FILES> 


LIBRRRV LIST 
L L 

LIBRRRV LIST DTR3: 
L L DTR6:TEST 


<LISTS FOCRL . FC RND . FD FILES SRVED ON DSK:> 
<RB6REVIRTI0N> 

<LISTS FILES SRVED ON DECTRPE DRIVE #3> 
<STRRTS LISTING WITH ^TEST. FC'> 


* ♦ ♦ FILE LENGTH IS PRINTED IN BLOCKS; 1 BLOCK IS RBOUT 508 CHRRRCTERS. 


I.IBRRRV RUN 


♦LIBRRRV RUN CDEVICE:KPROQRRM NRME> CLINE NUMBER! 

<BEGINS EXECUTION OF NRMED PROQRRM> 


LIBRRRV RUN JOHN 
L R DTR2:Z0NK 
L R POP 22. 81 
L R ZOWIE El 


<LORDS ^JOHN. FC' THEN BEGINS PROQRRM EXECUTION) 
<RUNS 'ZONK. FC' FROM DECTRPE DRIVE #2) 

<STfiRTS EXECUTING 'POP. FC' RT LINE 22. 81> 
CSTRRTS EXECUTING 'ZOWIE. FC' RT LINE El) 


♦ ♦ ♦ PROQRRMS CONTRININQ 'RUNS' SHOULD BE SRVED BEFORE EXECUTION. 




l_ I BRRR V SRVE: 

♦LIBRRRV SRVE CDEVICE:KPROGRRM NRME> 

LIBRRRV SRVE PROG <SRVES INDIRECT PROQRRM PRESENTLV IN THE TEXT 

BUFFER RRER UNDER THE NRME 'PROG. FC' ON DSK:) 
L S DTfl6:ZflRP <SflVES 'ZRRP. FC' ON DECTRPE DRIVE #6) 

L S PRGNRM <SAVES 'PRGNRM. FC' ON DSK:) 

♦ ♦ * OLD 'PRGNRM' IS DELETED WHEN NEW 'PRGNRM' IS SAVED. THIS 
COMMAND CLOSES OPEN OUTPUT FILES. 


L-IBRF^FtV EX IX 

_ ♦LIBRRRV EXIT <LERVES FOCAL; RETURNS TO PS/8 MONITOR) 



rnri 


L E 


<RBBREVIRTION) 



R I 


COMMFINOS 


THE EXPERIENCED PROGRAMMER MRV READ AND WRITE PS/8 COMPATIBLE DATA 
FILES WITH MANV DEVICES. SEE PS/8 DEVICE NAMES ON PAGE 7. 

PS^8 FOCAL ASSUMES . FC AND . FD AS NAME EXTENSIONS FOR PROGRAM AND 
DATA FILES RESPECTIVELV. DATA FILES ARE SAVED IN STANDARD PS/8 ASCII 
FORMAT AND ARE COMPATIBLE WITH EDIT AND TECO-8. PROGRAM FILES ARE 
SAVED IN CORE IMAGE FORMAT AND MAV BE TRANSFERRED BV PIP ONLV WITH 
THE '/I' OPTION. TO PRODUCE AN ASCII FILE CONTAINING A FOCAL PROGRAM. 
OPEN AN OUTPUT FILEj 'WRITE ALL' THEN 'OUTPUT CLOSE'. 

THE TERMINAL <TTV:> IS PS/8 FOCAL'S NORMAL INPUT AND OUTPUT DEVICE. 

THE 'OPEN INPUT' COMMAND PERMITS SELECTING ANOTHER DEVICE FOR INPUT 
<DEVICES LISTED ON PAGE ?>. 'OPEN OUTPUT' DOES THE SAME FOR OUTPUT. 

BE SURE TO CLOSE ONE OUTPUT FILE BEFORE OPENING ANOTHER. 

'.ECHO' ADDED TO THE INPUT COMMANDS ECHOES THE INPUT DATA ON THE OUTPUT 
DEVICE. WHEN ADDED TO OUTPUT COMMANDS. '.ECHO' CAUSES THE OUTPUT TO BE 
ECHOED ON THE TERMINAL. 

'OUTPUT CLOSE' EMPTIES THE OUTPUT BUFFER ONTO THE DEVICE AND SAVES THE 
FILE IF THE DEVICE IS FILE STRUCTURED <DISK OR MAGNETIC TAPE>. 

THE 'OPEN INPUT TTV:.ECHO' COMMAND WILL RESTORE THE TERMINAL AS THE 
INPUT DEVICE WITH ECHO. AFTER AN ERROR OCCURS OR 'CTRL/P' IS STRUCK. 
THE TERMINAL IS RESTORED AS BOTH INPUT AND OUTPUT DEVICE. 

READING AND WRITING CAN BE RESUMED WITH PREVIOUSLY OPENED NON~TTV: 
DEVICES THROUGH 'OPEN RESTORE INPUT' AND 'OPEN RESTORE OUTPUT' COMMANDS. 


DIRECT FILE COMMANDS MAV BE EXECUTED AS MENTIONED UNDER 'MERGING 
PROGRAMS' OR A SERIES OF DIRECT COMMANDS MAV BE EXECUTED AUTOMATICALLY 
FROM A FILE. FOR EXAMPLE. IF YOU WISHED TO GET LISTINGS OF SEVERAL 
PROGRAMS. YOU COULD PREPARE THE FILE 'LISTAL. FD' USING EDIT OR TECO-8: 

TYPE !!!!“LISTING OF TEST1-TEST3;"!!!! 

LIBRARY CALL TESTl 
WRITE ALL 
TYPE !!‘! 

LIBRARY CALL TEST2 
WRITE ALL 
TYPE !!!! 

LIBRARY CALL TESTS 
WRITE ALL 
TYPE !!!! 

OPEN INPUT TTY:. ECHO 

THEN. BV GIVING THE DIRECT FOCAL COMMAND 'OPEN INPUT LISTAL'. ALL 2 
PROGRAMS WOULD BE OUTPUT WITHOUT YOUR INTERVENTION. 


NOTE: WHEN WRITING FOCAL DATA FILES. IT IS NECESSARY TO INCLUDE A 

SPACE. COMMA. CARRIAGE RETURN OR OTHER DELIMITER PRECEDING 
A MINUS SIGN. OTHERWISE THE NUMBER WILL APPEAR POSITIVE WHEN 
'ASKED'. A PRECEDING SPACE WILL BE AUTOMATICALLY 'TYPED' IF 
THE INITIAL DIALOGUE RECEIVES AN ANSWER OF 'YES' OR '4.5'. 
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OF^Elsl IMF'L.IX 

‘♦'OPEN INPUT CDEVICE; 3CFILE NAME3C.ECH03 <PREPARES A FILE TO BE READ 

WITH "ASK^ OR ^FIN<>'> 


OPEN INPUT BLOOP 
0 I DTA'1: RED. ECHO 

0 I PTR; 

OPEN INPUT TTV:.ECHO 


<OPENS "BLOOP. FD" FILE FROM DSK:> 

<OPENS "RED. FD" FILE FROM DECTAPE DRIVE #4 AND 
WILL ECHO ON OUTPUT DEVICE WHILE READING "RED"> 
<PS/8 WILL TVPE AN "^" ON THE TERMINAL; HIT THE 
SPACE BAR AFTER PAPER TAPE IS LOADED IN READER. > 
<RESTORES TERMINAL TO NORMAL STATUS> 


’♦'’♦'’♦' CTRL/2 IS THE LAST CHARACTER IN A FOCAL DATA FILE. ATTEMPTS 
TO READ PAST THE END-OF-FILE WILL CAUSE A "?" TO BE OUTPUT ON THE 
TERMINAL AND WILL RESTORE THE TERMINAL AS INPUT DEVICE. 


OP■E:^4 OI_IXF=*LJX 

‘♦'OPEN OUTPUT CDEVICE: ]C FILE NAME DC.. ECHO 3 <PREPARES A FILE TO BE WRITTEN 

WITH "TVPE". "FOUT<A>" OR 
ECHOING FROM INPUT FILE> 

< OPENS "ABC. FD" TO BE WRITTEN ON THE DSK: > 

<OPENS "22. FD" FILE ON DECTAPE DRIVE #7> 

<ECHOES ON TTV: WHILE OUTPUTTING TO PUNCH; BE 
SURE TO GIVE AN "OUTPUT CLOSE" WHEN DONE> 

* * * OPEN OUTPUT FILES WILL BE CLOSED IF THE COMMAND "LIBRARY SAS''E" 

OR "LIBRARV DELETE" IS GIVEN OR IF "LIBRARY QOSUB" IS GIVEN BY A VERSION 
OF A PROGRAM THAT HAS NOT BEEN SAVED. 


OPEN OUTPUT ABC 
0 0 DTA7:22 
0 0 PTP:.ECHO 


•♦'OPEN RESTORE INPUTC.ECH0 3 <RESUMES INPUT FROM FILE> 

OPEN RESTORE INPUT <RESUMES INPUTTING DATA FROM A PREVIOUSLY OPENED 

INPUT FILE AFTER USING THE TTV: WITH AN 
"OPEN INPUT TTV:. ECHO") 

0 R I <SAME) 

0 R I. E <SAME PLUS ECHO) 


OI=*Els| RESTORE OLJXRUX 


‘♦'OPEN RESTORE OUTPUTC. ECHO 3 <RESUMES OUTPUT TO FILE) 


OPEN RESTORE OUTPUT <RESUMES OUTPUTTING ON PREVIOUSLY OPENED 

OUTPUT DEVICE AFTER USING TTY:) 

0 R 0 <SAME) 

0 R 0. ECHO <SAME PLUS ECHO) 


OUXRUX CL-OSE 

‘♦'OUTPUT CLOSE <ENDS FILE WRITING AND SAVES OUTPUT FILE IF DEVICE 

IS FILE STRUCTURED - DISK OR MAGNETIC TAPE) 


0 C 


<ABBREVIATION) 
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F-ILE f=IIMO CMPIRRCXER MRIMOL. IWG F-ROQRFIMS 






\ 


WOROS-^ 


GROUP 1 SETS UP THE 'WORDS'' FILE. GROUP 2 SCANS IT. ECHOING ONLV THE 
WORDS WHICH START WITH THE SEARCH LETTER. OBSERVE THE PROGRAM LISTING 
AND EXECUTION; ALSO NOTE COMPUTED LINE NUMBER ' P' USED IN LINE 2. 68 
TO MINIMIZE TIME IN THE CHARACTER INPUT LOOP: 


fWRITE ALL 
C-PS/8 FOCAL. 1971 




01.05 COMMENT: 'WORDS' 7/3/71 BV J. HUISMAN OF OMSI 
01.10 OPEN OUTPUT DTA2:WORDS; OPEN OUTPUT TTV:; ERASE 
01.20 TVPE ! "ENTER WORDS; FOLLOW EACH WITH A SPACE:"! 
01.30 TVPE "<ENTER A SPACE BV ITSELF TO CLOSE FILE)"!! 
01.40 TVPE :5"? ". OPEN RESTORE OUTPUT. ECHO 

01.50 IF <~FABS<FIN<)-160>)1. 5; OPEN OUTPUT TTV: 

01. 60 TVPE !"MORE? "; OPEN RESTORE OUTPUT. ECHO 
01.70 IF <-FABS<FIN<>-160))l. 5; OUTPUT CLOSE; GOTO 2.7 




1^ 










02.10 TVPE ! "ENTER SEARCH LETTER: "; SET L=FIN<>; T !!! 
02.20 TVPE "WORDS STARTING WITH "; S D=FOUT<L); T ":"!;5 
02. 30 OPEN INPUT DTA2: WORDS; SET S-160; SET P=2. 6 
02.40 SET C*FIN<)i IF <FABS<C-S)>. 2. 7; I <-FABS<L-C>>2. 6 
02.50 OPEN RESTORE INPUT. ECHO; T !:5;SET DUMMV»FOUT<C) 
02.60 I <-FA8S<FIN<)-S>)P;0PEN RESTORE INPUT; G 2.4 
02. 70 OPEN INPUT TTV:, ECHO; TVPE ! ! "DONE. " ! !; QUIT 
♦GO 

ENTER WORDS; FOLLOW EACH WITH A SPACE: 

CENTER A SPACE BV ITSELF TO CLOSE FILE) 



KINCAID 

MORE'? 

BUTLER 

MORE? 

CRAWFORD 

MORE? 

KAV 

MORE? 

POLLARD 

MORE? 

MORE? 

KLATT 

DONE. 

♦GOTO 

2. 1 

ENTER 

SEARCH LETTER: 

WORDS 

STARTING WITH K; 


KINCAID 

KAV 

KLATT 


DONE. 


r 


♦ 
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FIL_F>HIF^-' 


ALPHABETIZES A ^WORDS. FD^ FILE PREPARED BV THE 'WORDS. FC' 
PROGRAM ON PAGE 11. 


NOTE THAT THESE PROGRAMS ARE EXAMPLES ONLV AND NOT RECOMMENDED FOR 
GENERAL USE SINCE ERROR CHECKING THAT WOULD MAKE THEM USER-ORIENTED 
WHS EXCLUDED FOR THE SAKE OF BREVITY. 


♦WRITE ALL 
C-PS/8 FOCAL> 1971 

01.05 COMMENT: 'ALPHA' 8/1X71 BV B. SMITH OF OMSI 

01.10 OPEN INPUT DTA2: WORDS 

01. 15 OPEN OUTPUT DTA2: WORDS^ ECHO; ERASE 

01. 20 DO 10; IF <LE>. 3. 3 

01. 25 SET LE<l>aLE; FOR J=l> LE; SET B< J>=A< J>; SET A<J>a0 
01. 30 DO 10; IF <LE>. 3. 1 

01. 40 IF <LE-LE<1>>1. 45; SET N»LE; GOTO 1. 5 
01. 45 SET N=LE<1> 

01.50 FOR Isl^N;DO 2 
01. 60 GOTO 1. 3 

02.10 IF <R<I>-B<I>>2. 4. 2. 3 

02.15 FOR J=l. LE<1>; SET D=FOUT<B< J> >; SET B<J>e0 
02.20 TVPE “ '^SET I«N+l;DO 1. 25; RETURN 
02.30 IF <I-N>;DO 2. 4; TVPE *' “; RETURN 
02.40 FOR J=»1^LE;SET D=FOUT<A<J>>; SET A<J>»0 
02. 50 SET IaN+1; SET CHANGEsCHANGE-t-l; TVPE " “ 

03.10 FOR I=l> LE<1); SET D»FOUT<B<I>) 

03. 20 TVPE •• •• 

03.30 OUTPUT CLOSE; TVPE !; IF <CHANGE>. 3. 4, 

03. 40 OPEN INPUT TTVECHO; TVPE "DONE. ", ! •;OUIT 

10. 10 SET LE«0 

10. 20 SET A<LE+1>»FIN<>; IF <A<LE+1>-154>10 3, 

10. 30 IF <A<LE+1>-160)10. 4, 10. 5 
10. 40 SET LE=LE+1; GOTO 10. 2 
10. 50 SET R<LE+1>=0 
♦GO 

791 AND QUITE 124 123 ALL NUMERICS ORDERED ALPHABETICS USEFULLV 
791 AND 124 123 ALL NUMERICS ORDERED ALPHABETICS QUITE USEFULLV 

791 124 AND 123 ALL NUMERICS ORDERED ALPHABETICS QUITE USEFULLV 

124 791 123 ALL AND NUMERICS ALPHABETICS ORDERED QUITE USEFULLV 

124 123 791 ALL AND ALPHABETICS NUMERICS ORDERED QUITE USEFULLV 

123 124 791 ALL ALPHABETICS AND NUMERICS ORDERED QUITE USEFULLV 

123 124 791 ALL ALPHABETICS AND NUMERICS ORDERED QUITE USEFULLV 

DONE. 
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SVMBOI_S 

-w>\ • aMM mm 


RRIXHMEXIC SVMBOL-S : 


EXPONENTIATION ['“3 < INDICATES AN INTEGER EXPONENT> 

TYPE 3^2 <OUTPUTS A '9' - 3 TO THE SECOND POWER? 

SET XaV-'Z <SETS X EQUAL TO V RAISED TO THE INTEGRAL Z POWER) 

TYPE 2''3. 5 <PRINTS AN '8'-THE .5 IS IGNORED) 


MULTIPLICATION C*3 

TYPE 2H»4 < OUTPUTS AN '9'> 

SET X=X*Z <SETS THE NEW VALUE OF X EQUAL TO X TIMES Z) 


DIVISION 
TYPE 6/2 
SET X«Y/Z 


C/3 

<OUTPUTS A '3') 

<SETS X EQUAL TO Y DIVIDED BY Z) 


ADDITION 
TYPE 2+2 
SET X=Y+Z 


C + 3 

<OUTPUTS A '40 

<SETS X EQUAL TO V PLUS Z) 


SUBTRACTION 
TYPE 3-X 
SET X=Y-Z 


C-3 

<OUTPUTS THE VALUE OF 3-X) 
<SETS X EQUAL TO V MINUS Z) 


ENCLOSURES <), C 3> AND O MAY BE USED IN MATCHED PAIRS 

TO ENCLOSE QUANTITIES WHICH ARE TO BE OPERATED 
ON AS A UNIT. 



r 


I 





SRECIRL. CHRRRCXERS : 
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RETURN/LINE FEED C! 1 

TYPE !!!!/X> !• <OUTPUTS 4 CfiRRIflQE RETURN/LINE FEEDS/ THE VALUE OF 

X/ AND THEN 2 MORE CARRIAGE RETURN/LINE FEEDS. 


CARRIAGE RETURN C#3 

SEE WHAT THE DOES TO LINE 16. 35 FIRST WRITTEN THEN EXECUTED; 
<NOTE THAT THE AND THE ARE SUPERIMPOSED> 

10. 35 TYPE ••X«5”/ #/ “ /'•/ • ! ! • ! 

X(i<5 


TAB C : 3 

TAB OUTPUTS ENOUGH SPACES SO THAT THE NEXT CHARACTER WILL BE OUTPUT 
AT THE POSITION ON THE LINE INDICATED BY THE VALUE AFTER THE ' 

TAB WILL HAVE NO EFFECT IF THE POSITION SPECIFIED HAS BEEN EXCEEDED. 
SEE WHAT THE 'DOES TO LINE 11. 3? FIRST WRITTEN THEN EXECUTED: 

11. 37 TYPE "NAME-" :25/ "ROGER" : 40/ "AGE « "/ 2*13/ ! ! ! ! ! 

NAME- ROGER AGE » 26. 0000 


OUTPUT FORMATTER C X 3 

SEE WHAT THE "X" DOES TO LINE 12,30 FIRST WRITTEN THEN EXECUTED: 

12. 30 SET X»123. 456j TYPE X6. 04 X/ !j TYPE X 4. 02 X/ !i T X 3. 0 X/ !> T X/ X/ • 
123, 456 
123. 5 
124 

0. 1234560000E+03 

'X4. 02' PERMITS FOUR DIGITS TO BE OUTPUT INCLUDING UP TO TWO DECIMAL 
PLACES/ 'TYPE X' ALONE GIVES POWERS-OF-TEN NOTATION. 'X' DOES NOT 
CHANGE CALCULATION PRECISION; THAT IS DONE WITH THE INITIAL DIALOGUE. 


SYMBOL TABLE C«3 

type t <OUTPUTS THE LIST OF DEFINED VARIABLES NOT INCLUDING 

PROTECTED VARIABLES. BE SURE TO USE AN OUTPUT 
FORMAT <X> THAT WILL NOT MASK PRECISION. SUB¬ 
SCRIPTS OVER 99 WILL NOT OUTPUT ACCURATELY. > 


QUOTATION MARKS C"3 

WORDS MAY BE TYPED BY ENCLOSING THEM IN QUOTES. 

SEE WHAT THE " DOES TO LINE 14.65 FIRST WRITTEN THEN EXECUTED: 
14. 65 TYPE "THE ANSWER IS "/ 3+8/ ! ! ! ! ! 

THE ANSWER IS 11. 0000 
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TRRCE 171 

THE FIRST TIME FOCRL RERDS R <EXCEPT WITHIN QUOTES) IT WILL 
START OUTPUTTING THE PROGRAM WHILE IT IS BEING EXECUTED. THE NEXT 
TIME IT MEETS R IT WILL STOP OUTPUTTING THE PROGRAM. 

SEE WHAT THE '7' DOES TO LINE 15.60 FIRST WRITTEN THEN EXECUTED: 

15. 60 SET X=3; 7 SET V*5j TVPE X/V/ ! ? 

SET V«5i TYPE X/V/ 0.6000! 

R 'GO ?' COMMAND WILL CRUSE THE WHOLE PROGRAM TO BE 'TRACED^. 


AN ATTEMPT TO READ PAST A CTRL/Z END-OF-FILE CHARACTER WILL OUTPUT 
fi '7' ON THE TERMINAL AND RESTORE THE TERMINAL AS THE INPUT DEVICE. 


POWERS-OF-TEN CE OR &1 

'E' MAV BE CHANGED TO 'IN THE INITIAL DIALOGUE. 

SEE WHAT THE 'E' DOES TO LINE 6. 80 FIRST WRITTEN THEN EXECUTED: 
06. 80 TVPE lEl. 7E3.1. 23E-2. 3. 76E217, ! ! ! ! I 
10. 0000 7000. 00 0. 0123 0. 376000E-t-218 


RUBOUT KEV 

WHEN WRITING A PROGRAM. ONE CHARACTER WILL BE DELETED FROM THE CURRENT 

LINE WHEN THE RUBOUT KEV IS STRUCK; RUBOUT WILL ECHO AS A 'S" - THUS: 

'PLWEASSSEASE^ BECOMES 'PLEASE'. 


CTRL/C <PRESSING 'CTRL' AND 'C' AT THE SAME TIME) 

WILL RETURN USER TO THE PS/8 MONITOR WHEN FOCAL IS USING PS/8 

ROUTINES - THE 'LIBRARY EXIT' COMMAND IS PREFERRED FOR 

LEAVING PS/8 FOCAL. 1971. CTRL/P IS THE BREAK CHARACTER. 


CTRL/Q CBELL3 <PRESSING 'CTRL' AND 'G' AT THE SAME TIME) 

USED WITH THE 'MODIFY' COMMAND TO CHANGE THE SEARCH CHARACTER. 


CTRL/L <PRESSING 'CTRL' AND 'L' AT THE SAME TIME) 

USED WITH THE 'MODIFY' COMMAND TO SKIP TO THE NEXT SEARCH CHARACTER. 


CTRL/P <PRESSING 'CTRL' AND 'P' AT THE SAME TIME) 

IS PS/8 FOCAL'S BREAK CHARACTER - INTERRUPTS PROGRAM EXECUTION AND 

CAUSES FOCAL TO PRINT ITS 


CTRL/2 <PRESSINO 'CTRL' AND '2' AT THE SAME TIME) 

IS THE LAST CHARACTER IN A PS/8 FOCAL DATA FILE. ATTEMPTS TO READ 
PAST THE END-OF~FILE WILL CAUSE A '?' TO BE TYPED ON THE TERMINAL AND 
WILL RESTORE THE TERMINAL AS THE INPUT DEVICE. 
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LINE FEED 

USE WITH THE 'MODIFY' COMMAND TO RETAIN REMAINDER OF MODIFIED LINE. 


KILL LINE 

WHEN WRITING A PROGRAM. DELETES ES'ERVTHING OVER TO LEFT MARGIN. 

IN RESPONSE TO 'ASK' COMMAND. '«' CANCELS THE NUMBER BEING ENTERED. 


RETURN KEY 

USED WITH THE 'MODIFY' COMMAND TO DELETE REMAINDER OF MODIFIED LINE. 
'RETURN' IS A LEGAL SYMBOL FOR SEPARATING DATA BEING REQUESTED BY 
AN 'ASK' COMMAND. 


ALT MODE KEY 

IN RESPONSE TO AN 'ASK' COMMAND. ALT MODE CAUSES THE VARIABLE 
TO RETAIN ITS PREVIOUS VALUE. 


SPACE KEY 

IT IS A LEGAL SYMBOL FOR SEPARATING DATA REQUESTED BY AN 'ASK'. 


COMMA C. 3 

IT IS A LEGAL SYMBOL FOR SEPARATING DATA IN 'TYPE' AND 'ASK' COMMANDS. 
SEE WHAT THE DOES TO LINE 26. 40 FIRST WRITTEN THEN EXECUTED: 

26. 40 TYPE 2. 3. 5/6. 12^3. ! ! ! ! 

2. 0000 3. 0000 0. 8333 1728. 08 


SEMICOLON I} 3 

SEPARATES COMMANDS WHEN PLACED TOGETHER ON ONE LINE. 

SEE WHAT THE DOES TO LINE 27.42 FIRST WRITTEN THEN EXECUTED: 
27. 42 SET X=17; TYPE 3»»‘Xj SET X=3/7; TYPE '' ". X+3. ! ! ! ! 

51. 0000 3. 4286 
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F-UIMCX I ONS 


FOR MOST FUNCTIONS/ fi SAMPLE LINE IS SHOWN AND THEN EXECUTED: 

'<a>' REPRESENTS THE ARGUMENT OF THE FUNCTIONS 

NOTE: ARCTAN/ LOG AND EXP FUNCTIONS ARE PRECISE TO LESS THAN 7 DIGITS. 
ARCTAN^S PRECISION IS MUCH REDUCED FOR ARGUMENTS NEAR ZERO. 

SINE AND COSINE ARE PRECISE TO lO DIGITS. 


FABS<A> ABSOLUTE VALUE 
EXAMPLE (WRITTEN THEN EXECUTED>: 
03. 40 TVPE FABS<“3>/ FRBS<2>/ ! ! ! ! 
3. 0000 2. 0000 


FADC<A> ANALOG TO DIGITAL INPUT FUNCTION 
04. 22 SET XaFADC<A>j TVPE ! ! ! ! 


FATN<A> ARCTANGENT ARGUMENT RANGE: 0<A<10^6 

05. 25 TVPE FATN<1>/ • • ! !;COM: OUTPUTS RADIAN ANGLE WHOSE TANGENT * 1. 00 
0. 7854 


- TANGENT 'FTAN<A>' IS NOT AVAILABLE 

TANGENT IS COMPUTED AS THE QUOTIENT <SINE/COSINE> 

05.55 TVPE FSIN<1>/FC0S<1>/ !•!!; COMMENT: OUTPUTS TANGENT OF 1 RADIAN 


FCOS<A> COSINE ARGUMENT RANGE: -1>*‘10''4<A<10''4 <RADIANS> 

06. 27 TVPE FC0S<1>/FC0S<3/2>/ ! ! ! COM: OUTPUTS COSINES OF 1 « 1. 5 RADIANS 
0. 5403 0. 0707 


FDIS<A> DISPLAV FUNCTION FOR DEC TVPE 34D DISPLAV 
EXAMPLE: 

07. 20 SET DUMMV=FDIS<X/ V> 

WOULD CAUSE A POINT TO BE PLOTTED AT POSITION <X/ V> ON DISPLAV 

DISPLAV AND JOVSTICK FUNCTIONS FOR PS/S FOCAL HAVE ALSO BEEN WRITTEN 
FOR THE TEKTRONIX T-4002 GRAPHICS TERMINAL. SEE PAGE 19. 


FEXP<A> EXPONENTIAL 

08.24 TVPE FEXP<1>/FEXP<2. 17>/ ! ! ! !; COM: NATURAL BASE TO THE POWER <A> 
2. 7183 8. 7583 





PAGE 18 


FITR<R) INTEGER 

09, 18 TVPE FITR<3/2>. FITR<2S. 719). FITR<-2. 99). ! ! ! ! 

1. 0000 23. 0000- 2. 0000 

WARNING: LACK OF PRECISION IN FOCAL. 1969^5 FLOATING POINT PACKAGE 

MAV CAUSE FITR<A) TO PRODUCE ROUNDING ERRORS WITH NUMBERS OF 
MORE THAN FOUR OR FIVE DIGITS. VOU MAV PROGRAM AROUND THIS 
PROBLEM BV ADDING EMPIRICAL CONSTANTS TO THE FUNCTION ARGUMENT. 


FLOQ<A) NATURAL LOGARITHM 

10. 14 TVPE FL0G<1). FL0G<4. 237). FLOG<10). ! ! ! ! 
0. 0000 1. 4439 2. 3026 


FRANO RANDOM NUMBER 

11.22 TVPE FRANO. FRANO. FRANO. FRANO. FRANO. ! 

0. 5444 0. 7732 0. 3680 0. 8852 0. 8446 

THE PSEUDO-RANDOM NUMBERS PRODUCED ARE PART OF A VERV LONG AND WELL 
DISTRIBUTED BUT DETERMINISTIC SERIES. VOU WILL USUALLV OBSERVE AN 
ENTIRELV DIFFERENT SERIES EACH TIME FOCAL IS INITIALIZED. HOWEVER. 
FRANO DOES NOT GENERATE TRULV RANDOM NUMBERS. 


FSQN<A) SIGN 

12. 34 T y.±. 0 FSGN<2. 78). " FSQN<-299). " ". FSGN<0). " “. FSGN<-1>. ‘ ‘ ! 

1-10 -1 


FSIN<A) SINE ARGUMENT RANGE: -iH.10''4<A<10''4 <RADIANS) 

13.52 TVPE FSIH<i). FSIN<0). FSINCST-Z 22). ! ! ! ! 

0. 3415 0. 0000- 0. 2207 


FSQT<A) SQUARE ROOT OF A POSITIVE NUMBER 
14. 40 TVPE FSQT<4). FSQT<391). FSQT<. 0038953). ! ! ! ! 
2. 0000 19. 7737 0. 0624 


FINO CHARACTER INPUT FUNCTION 

ASKS FOR A CHARACTER FROM THE TERMINAL <OR FILE); EXAMPLE; 

09. 14 SET A=FINO 

SETS 'Ft' EQUAL TO THE DECIMAL ASCII CODE OF THE CHARACTER INPUT. 

FOUTCA) CHARACTER OUTPUT FUNCTION 
09. 25 SET DUMMV=FOUT<A) 

OUTPUTS THE CHARACTER WHOSE DECIMAL ASCII CODE EQUALS ' fi'. 

IF AN 'L' WERE INPUT IN RESPONSE TO LINE 9. 14. 'Ft' WOULD BE SET 
EQUAL TO 204. THEN LINE 9. 25 WOULD CRUSE AN 'L' TO BE OUTPUT. 

THE 'Ft' ON LINE 9. 25 IS A DUMMV VARIABLE. SEE DECIMAL ASCII CODES 
FOR FINO AND FOUT<R) ON PAGE 28. 






OISRl_F»V FIIMC OrOVSXICK RUMOXI ON 


FOR THE TEKTRONIX T-4002 QRRPHIC COMPUTER TERMINAL 


F=’OIS<I^ V>-OISRl-RV 

COORDINATES: 0 <« X < 1024 0 <=> V < 1024 

I»-l PLOT A POINT AT <X/V> 

I» 0 DRAW A DARK VECTOR TO <X. V> 

Ia+1 IF IN GRAPHICS MODE. DRAW A BRIGHT VECTOR TO 
<X. V>i OTHERWISE ENTER GRAPHICS MODE AND DRAW 
A DARK VECTOR TO <X. V>. 


F'OroV<I>-JOVSXICK 

FJOV<I> SETS VARIABLES XJ AND VJ EQUAL TO THE X AND V 
LOCATIONAL ADDRESSES IN THE INTERACTIVE GRAPHICS UNIT. 

I«-l SETS XJ AND VJ EQUAL TO LOCATIONAL ADDRESSES. 
I« 0 TURNS ON JOYSTICK. WAITS FOR KEYBOARD 
INPUT BEFORE READING CURSOR COORDINATES. 

I*+l ASSUMES JOYSTICK PREVIOUSLY TURNED ON BY 
A F0UT<17>; READS CURSOR IMMEDIATELY. 


QFSFIP-HICS f=-OUX< > COOES 
1 . . HOME 

17 . . TURNS ON JOYSTICK FOR FJOYc:i> APPLICATION 
24 . . ERASE SCREEN <REQUIRES . 5 SECOND DELAY) 

30 . . ENTER INCREMENTAL PLOT MODE 

31 . . LEAVE GRAPHICS MODE 


I IMCREMEMXFIL. P'L.OX MOOE 
FOUTO CODES: 


DIRECTION 

N 

NE 

E 

SE 

S 

SW 

W 

NW 

BRIGHT POINT 

32 

33 

34 

35 

36 

37 

38 

39 

DARK POINT 

40 

41 

42 

43 

44 

45 

46 

47 


F>ROQRF=IM : SKEXCM*^ 

CFOLLOWS JOYSTICK ON DISPLAY) 

01. 10 SET 1=0; FOR K=0. . 2. F0UT<24); C ERASE AND PAUSE 
01. 20 SET DUMMV=FJOV<0); C WAITS FOR A KEY TO BE HIT 
01.30 SET DUMMV=FDIS<0. XHOLD. VHOLD)+FDIS<I. XJ. VJ) 

01.40 SET XHOLD-=XJ; SET VHOLD=VJ; SET 1=1; GOTO 1.2 

NOTE: THE VERSION OF PS/8 FOCAL USING FDIS AND FJOY FOR THE 

TEKTRONIX T-4002 PROVDES 10X-20X FEWER VARIABLES. 
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M I SCEL-L-f^NEOUIS 


EXPRESSIONS - RRITHMETIC EXPRESSIONS INCLUDE RNV EVflLUflTflBLE GROUP 

OF NUMBERS OR VflRIfiBLES SUCH flS: fl7, 2+3‘»«X OR 22/7 


HIGH SPEED PfiPER TAPE READER CAN READ IN FOCAL PROGRAMS: 

1> TYPE 'OPEN INPUT PTR:' 

2> AFTER IS TYPED OUT. HIT SPACE BAR TO READ TAPE 

3> AFTER IS TYPED OUT. HIT ' CTRL/P' 

USING YOUR TERMINAL'S LOW SPEED READER. YOU CAN INPUT PROGRAM TAPES 
BY FIRST TURNING OFF THE ECHO WITH 'OPEN INPUT TTY:'; READING IN THE 
TAPE; AND THEN TURNING ON THE ECHO WITH CTRL/P OR 'OPEN INPUT TTY:.E'. 


THE FOLLOWING 3 LINE PROGRAM WILL ASK FOR 10 NUMBERS FROM THE READER: 
10. 60 OPEN INPUT PTR: 

<PS/8 WILL NOW OUTPUT A ON THE TERMINAL AND WAIT FOR YOU 
TO SIGNIFY THAT THE TAPE IS LOADED BY HITTING THE SPACE BAR. > 
10. 65 FOR X“l. 10; ASK A<X> 

10.70 OPEN INPUT TTY:. ECHO; COMMENT-RESTORES TERMINAL TO NORMAL 


HIGH SPEED PUNCH MAY BE USED TO PUNCH PROGRAM TAPES: 

1> TYPE 'OPEN INPUT TTY:; OPEN OUTPUT PTP:;W' 

2> THEN TYPE 'OUTPUT CLOSE; OPEN INPUT TTY:.E' 


LINE NUMBERS-MAY RANGE FROM 1. 01 THROUGH 31. 99 BUT DO NOT INCLUDE 

WHOLE NUMBERS. VARIABLES <OR ARITHMETIC EXPRESSIONS NOT STARTING WITH 
'A'> OF THE CORRECT VALUE MAY BE USED IN PLACE OF LINE NUMBER REFERENCES 
<EXAMPLE: 'GOTO X'>. GROUP NUMBERS ARE INTEGERS FROM 1 THROUGH 31 AND 

REFERENCE GROUPS OF LINES IN 'DO'. 'WRITE'. AND 'ERASE' COMMANDS. 


MERGING PROGRAMS 'A' AND 'B' IS DONE WITH A SERIES OF COMMANDS WHICH 
CONVERT 'A' INTO A PS/8 EDITOR COMPATIBLE DATA FILE AND THEN BRING IT 
IN 'ON TOP' OF PROGRAM 'B' : 

1> LIBRARY CALL A 
2> OPEN INPUT TTY: 

3> OPEN OUTPUT A <STEPS 3-4 WILL NOT OUTPUT ON TERMINAL> 

4> OUTPUT CLOSE; OPEN INPUT TTY:. ECHO 
5> LIBRARY CALL B 

6> OPEN INPUT A <WAIT FOR '?' ON TERMINAL; THEN HIT 'CTRL/P'> 

7> LIBRARY DELETE A. FD 

THE MERGED PROGRAM WILL NOW BE IN YOUR PROGRAM BUFFER. 
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PRECISION - IF 10 DIGIT PRECISION IS NOT RETAINED THROUGH THE INITIAL 

DIALOGUE. VOU WILL HAVE 2054 MORE VARIABLES BUT ONLY 6 DIGIT PRECISION. 


PIP - A PS/8 SYSTEM PROGRAM WHICH CAN LIST VOUR ENTIRE DEVICE 

DIRECTORY. TYPE 'R PIP" TO PS/8 MONITOR THEN "DEVICE:/L" TO LIST 
DIRECTORY. WHEN TRANSFERRING FOCAL PROGRAM FILES WITH PIP. BE SURE 
TO USE THE "/I" OPTION AS THEY ARE CORE IMAGE FILES - NOT ASCII!!! 


PROGRAM JtflMES -t- MAY HAVE UP TO SIX ALPHABETIC OR NUMERIC CHARACTERS. 
FOCAL ASSUMES ". FC" OR ". FD" EXTENSIONS FOR PROGRAM AND DATA FILE NAMES. 


PROGRAM SIZE - WITH STANDARD FEATURES. PS/8 FOCAL PROGRAMS MAY BE 

7 BLOCKS LONG <ABOUT 3500 CHARACTERS). IF FILES ARE DELETED THROUGH 
THE INITIAL DIALOGUE. 11 BLOCK PROGRAMS ARE POSSIBLE. 


PUSHDOWN LIST OVERFLOW-WHEN A PROGRAM USES A "DO" OR "LIBRARY GOSUB" 

COMMAND; FOCAL RECORDS THE LOCATION IN ITS PUSHDOWN LIST SO THAT IT CAN 
"RETURN" TO THE NEXT COMMAND AFTER COMPLETING THE "DO" SUBROUTINE. IF 
TOO MANY SUBROUTINES ARE REQUESTED. THE LIST WILL OVERFLOW. TO REMEDY 
THIS SITUATION. REDUCE THE NUMBER OF BLOCKS OR SUBROUTINES IN PROGRAM. 


STRINGS - ARE ANY SERIES OF CHARACTERS SUCH AS: 

HELLO 
122. 5 
♦SB. 95 

NOW IS THE TIME FOR ALL GOOD MEN - 

TEST34 

THE ABOVE STRINGS WERE TYPED BY SURROUNDING THEM WITH QUOTATION 
MARKS AS IN LINE 22. 25: 

22. 25 TYPE " HELLO" ! 

STRINGS MAY ALSO BE PRINTED OUT CHARACTER BY CHARACTER USING THE 
"FOUTO" FUNCTION; INPUT OF STRINGS MAY BE HANDLED WITH THE "FINO" 
FUNCTION. LIST THE INITIAL DIALOGUE FOR AN EXAMPLE. 

THE ASK COMMAND MAY BE USED TO INPUT AND COMPARE 6 OR 10 CHARACTER 
STRINGS <DEPENDING ON PRECISION RETAINED IN INITIAL DIALOGUE). IT 
IS BEST TO RETAIN FEATURE "8" IN DIALOGUE WHEN USING THIS TECHNIQUE, 

22.80 ASK "ANSWER YES OR NO? ". AN; COMMENT "YES OR NO" SUBROUTINE 

22. 82 IF <AN-0VES)22. 84. 22. 86 

22. 84 IF <AN>-0NO)22. 8. 22. 88. 22. 8 

22. 86 SET X»2; RETURN 

22. 88 SET X«l; RETURN 

ANSwIr yes or no? YEP 
ANSWER YES OR NO? NOPE 
ANSWER YES OR NO? YES 

PROQW^M CONTROL WOULD THEN RETURN TO THE COMMAND FOLLOWING THE 
SUBROUTINE CALL <"DO" OR "LIBRARY GOSUB") WITH X EQUAL TO 2. 
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VFiR I fiol.e;s 

VARIABLES - SOME EXAMPLES INCLUDE: A. X. Z7» PZ, AN. QU^ PI> NUMBER 

<ONLV THE FIRST TWO LETTERS WILL BE USED>-VARIABLES MAV NOT BEGIN 

WITH AN OR A DIGIT. 

SUBSCRIPTING - VARIABLES MAV HAVE UNIQUE SUBSCRIPTS FROM -2048 

THROUGH 2047 ALTHOUGH THE TOTAL NUMBER OF VARIABLES IS STILL LIMITED 
BV CHOICES MADE IN THE INITIAL DIALOGUE. NOTE THAT THE SYMBOL TABLE 
WILL ONLY ACCURATELY OUTPUT SUBSCRIPTS BETWEEN 0 AND 99. 

PROTECTED VARIABLES- 'I'j ' AND 'It' CANNOT BE ^TVPED^/ 'ASKED' 

OR ZEROED WITH THE 'ERASE' COMMAND DIRECTLY BUT ARE OTHERWISE NORMAL 
VARIABLES AND MAV BE USED AS SUCH IN 'SET'i 'IF', 'GOTO', 'FOR' AND 
OTHER COMMANDS. '#', THE SYSTEM STATUS VARIABLE, IS 'SET' TO SPECIAL 
CODES BV THE INITIAL DIALOGUE. 


I N Z X I F)l_ O Z RL.OQUE 

INITIAL DIALOGUE - ASK FOCAL'S INITIAL DIALOGUE FOR 'HELP' WHICH WILL 

LIST OPTIONS OTHER THAN STANDARD FEATURES. BV NOT RETAINING FILES 
<FEATURE t4> PROGRAM SPACE IS INCREASED FROM ABOUT 3500 CHARACTERS 
<7 BLOCKS> UP TO ABOUT 5590 CARACTES <11 BLOCKS>. IF FEATURES 5 
AND 6 ARE BOTH REQUESTED, 6 WILL BE IGNORED. 

THE SYSTEM STATUS VARIABLE, LIKE '!' AND '"' CANNOT BE 'TYPED' 

'ASKED' OR 'ERASED' BUT IS OTHERWISE A NORMAL VARIABLE. THE SYSTEM 
STATUS VARIABLE IS 'SET' TO THE PRODUCT OF THE CODES REPRESENTING 
FEATURES CHOSEN IN THE INITIAL DIALOGUE. 


FEATURE CODE 

'O' NO OPTIONAL FEATURES . 1 

'1' FSIN AND FCOS FUNCTIONS. 2 

'2' FSIN, FCOS, FLOG, FEXP AND FATN. 6 

'3' EXTENDED PRECISION <10 DIGITS> . 5 

'4' FILE COMMANDS. 7 

'5' LEADING SPACE IN 'TYPE' . 11 

'6' '«' AUTOMATICALLY PRINTED BV 'TYPE' . 13 

'7' ':' AUTOMATICALLY PRINTED BV 'ASK' .. 17 

'8' 'A' IN POWERS-OF-TEN NOTATION. -1 

'9' FEATURES 2,3,4 . 210 

'YES' STANDARD FEATURES 2, 3, 4, 5. 2310 


TKE NUMBER OF ORDINARY VARIABLES PERMITTED DEPENDS ON WHETHER EXTENDED 
PRECISION OR EXTENDED FUNCTIONS ARE RETAINED: 


NO EXTENDED 
FUNCTIONS 


FSIN A FCOS FSIN, FCOS, FLOG 

ONLY <1> FLOG, A FEXP <2> 


222 196 

185 163 


118 

98 


6 DIGIT PRECISION: 
10 DIGIT PRECISION: 
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COMMFIIMO EXeCUTIOM TIMES 


6 & 10 DIGIT PRECISION VERSIONS OF PS/8 FOCftL>1971 WERE USED TO TEST 
THE COMMfiND EXECUTION TIMES IN MILLISECONDS ON fl PDP-8 USING fl TU55 
DECTflPE FOR INPUT AND HIGH SPEED TERMINAL FOR OUTPUT. TIMES INCREASE 
AS LINES ARE REFERENCED TOWARD THE END OF A PROGRAM AND VARIABLES ARE 
USED FROM THE END OF THE SYMBOL TABLE. 


COMMAND 

6 DIG 

10 DIG 

COMMAND 

6 DIG 

10 DIG 

ASK X. 

13. 42 

13. 57 

S X=H-H . 

6. 98 

7. 02 

A X. 

12. 08 

12. 09 

S X=G*G . 

7. 75 

8. 55 

A X/X. 

25. 69 

25. 96 

S X=H^H . 

8. 47 

9. 98 

COMMENT . 

1. 50 

1. 50 

S X»G/G . 

8. 71 

10. 34 

C. 

0. 51 

0. 51 

S X=H/H . 

8. 76 

10. 39 

DO 1. 3. 

16. 06 

18. 28 

S X*444444/444444 . . 

. 15. 48 

17. 12 

D 1. 3. 

15. 91 

18. 22 

S X»444444/333333 . . 

. 15. 56 

17. 35 

FOR X“l. 1; . 

14. 94 

15. 01 

S X=1E10/1E-10 . 

. 50. 11 

79. 77 

F X=l. 1; . 

14. 60 

14. 67 

S X»1E100/1E-100 . . . 

. 357. 57 

657. 90 

F X=l/ 2 j . 

la 13 

18. 23 

S X=FflBS<> . 

6. 09 

6. 15 

F 10; . 

50. 27 

50. 63 

S X=FfiBS<G> . 

7. 31 

7. 37 

GO 1. 3. 

14. 43 

16. 74 

S X»FABS<4> . 

9. 59 

9. 66 

G 1. 3. 

14. 27 

16. 59 

S X=FABS<H> . 

7. 35 

7. 40 

G Z. 

9. 45 

10. 28 

S X=FABS<444444> . . . 

. 10. 69 

10. 74 

IF <-l>l. 3/1. 3^ 1. 3 . . 

20. 87 

23. 22 

S X=FS(2T<G>. 

. 22. 79 

31. 77 

I <-!>!. 3^ 1. 3.1. 3 . . . 

20. 69 

23. 04 

S X=FSQT<4> . 

. 25. 07 

34. 06 

I <L>1. 3.1. 3> 1. 2_ 

16. 78 

19. 10 

S X«=FSGN<G>. 

8. 01 

7. 90 

I <1>1. 3> 1. 3.1. 3_ 

20. 47 

22. 79 

S X=FITR<G> . 

9. 29 

9. 34 

I <N>1. 3.1. 2.1. 3_ 

18. 04 

20. 38 

S X=FRAN<> . 

7. 43 

7. 50 

I <-l)Z^2, 2. 

15. 85 

16. 70 

S X=FEXP<G) . 

. 26. 50 

36. 56 

I <L>2. Z. Z. 

11. 93 

12. 77 

S X=FSIN<Q> . 

. 31. 69 

48. 29 

I <l>2/2, 2. 

15. 04 

15. 88 

S X=FCOS<G> . 

. 33. 32 

50. 06 

I <N>2. 2. 2. 

12. 63 

13. 46 

S X=FATN<G> . 

. 25. 09 

37. 10 

RETURN . 

1. 42 

1. 42 

S X*FLOG<G> . 

. 14. 78 

48. 25 

R. 

. 61 

. 61 

S X=FIN<> . 

6. 24 

6. 30 

S X=N. 

4. 10 

4. 11 

S X=FIN<>+FIN<> _ 

. 11. 29 

11. 38 

S X«1. 

6. 47 

6. 52 

S X=CTEN FINO'SI . . 

. 65. 37 

65. 60 

S X=G. 

4. 15 

4. 15 

S X»FOUT<K> . 

9. 19 

9. 26 

S X=4. 

6. 35 

6. 37 

S X»FOUT<180> . 

. 11. 91 

11. 98 

S X»l+1 . 

11. 67 

11. 72 

S X=FOUT<K>+FOUT<K> 

. 17. 20 

17. 29 

S X=H. 

4. 16 

4. 18 

S X=«C10 FOUT<K>''S3 . 

. 82. 46 

82. 88 

S X=444444 . 

7. 43 

7. 46 

TYPE. 

1. 19 

1. 19 

S X=G+G . 

6. 87 

6. 91 

T. 

. 71 

. 71 

S X=G-H. 

9. 35 

9. 39 

T ! . 

1. 32 

1. 34 

S X=l+1 . 

11. 67 

11. 71 

T #. 

1. 38 

1. 38 

S XsH+H . 

6. 94 

6. 97 

T “4**. 

1. 46 

1. 46 

s X°444444-<'H. 

10. 38 

10. 47 

T 444444". 

3. 38 

3. 38 

S X»444444-»'444444 . . . 

13. 69 

13. 72 

T " 444444"! . 

4. 06 

4. 06 

S X=G+G+G . 

9. 75 

9. 79 

T " 444444'S ‘ . 

4. 29 

4. 29 

S X«G-f<G+G>. 

11. 51 

11. 59 

T H. 

. 16. 20 

26. 40 

S X=Q^J . 

26. 80 

34. 47 

T H/ ! . 

. 16. 87 

27. 06 

S X=4^J . 

29. 15 

36. 82 

T 1E25 . 

. 91. 20 

163. 49 

S X=4''10. 

31. 62 

39. 29 

T 0001E5/0001E5 . . . . 

. 33. 27 

43. 78 

S X=4^100 . 

185. 37 

261. 78 

T 100000/100000 . . . . 

. 18. 20 

20. 83 

S X«H+H . 

6. 94 

6. 98 

T "C20 SPACES I"! ... 

7. 76 

7. 77 

S X»Q-G . 

6. 91 

6. 95 

T :20> • . 

. 11. 56 

11. 59 
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TECHIMICRL. MOTES 


L_OF=lOIMC3 F'S^© EOCf=IL_ji d.ST’dL 


PS/8 FOCAL. 1371 IS AVAILABLE IN THREE FORMS: 


1> A PS/8 FORMAT FILE DECTAPE CONTAINING SAVED AND BINARV FILES 
OF PS/8 FOCAL AND THE 7 FILES NEEDED TO ASSEMBLE PS/8 FOCAL. 
THIS FORM IS RECOMMENDED FOR MULTIPLE DECTAPE INSTALLATIONS. 

2> A PS/8 SVSTEM TAPE TO WHICH HAVE BEEN ADDED THE FILES NEEDED 
TO ASSEMBLE PS/8 FOCAL. THIS FORM IS RECOMMENDED FOR SINGLE 
DECTAPE INSTALLATIONS. NOTE: USER MUST SEND OMSI A PS/S 
SVSTEM TAPE TO RECEIVE PS/8 FOCAL IN THIS FORM. 

3> EIGHT PAPER TAPES; A BINARV TAPE OF PS/8 FOCAL AND 7 SOURCE 
TAPES. 


FORMS 1> AND 2> ARE AVAILABLE WITH DEMONSTRATIONS AND THE 'HELP^ 
PACKAGE. 


TO LOAD PS/8 FOCAL FROM DECTAPE. MOUNT THE TAPE ON DRIVE 1. THEN GIVE 
THE FOLLOWING COMMANDS: 

. ASSIGN DTAl: DSK: 

. R PIP 

H«SVS: PFOCAL. SV<-PFOCRL. SV/I 
*''C 


TO LORD PS/8 FOCAL FROM PAPER TAPE. PLACE THE TAPE LABELED •'PFOCRL. BN' 
IN THE TAPE READER AND GIVE THE FOLLOWING COMMANDS: 

. R ABSLDR 

'»‘PTR:®10200$<:RLT M0DE> 

<TVPE A SPACE TO READ TAPE> 

. SAVE SVS:PFOCRL 


PS/8 FOCAL. 1971 IS NOW SAVED ON THE SVSTEM DEVICE AND MRV BE RUN BV 
GIVING THE PS/8 COMMAND: 

. R PFOCRL 


PS/8 FOCAL'S INITIAL DIALOGUE WILL THEN ASK VOU IF VOU WISH TO RETAIN 
STANDARD FEATURES. TVPE 'VES' OR REFER TO PAGE 22 OF THIS MANUAL. 
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P BUIl-C*ING F’OCFII- 

i 

fssg PS/8 FOCRU 1971 CRN BE BUILT FROM FOUR RSCII SOURCE FILES RND THREE 

BINRRV FILES. THE NECESSRRV FILES RRE: 





ps) 


FOCDEF. PR 

FOCOVR. PR 

FOCINT. PR 
FOCLIB. PR 


DEFINITIONS OF CONSTRNTS RND NEW INSTRUCTIONS FROM 
FOCRL/ 1969. 

RDDITIONS RND OVERLRVS TO FOCRL PROPER (NOW RESIDENT 
IN FIELD 1>. 

INITIRL DIRLOGUE (MRCHINE LRNGURQE PORTIONS. 

LIBRRRV RND FILE ROUTINES (RESIDENT IN FIELD 0>. 








FOCRL. BN BINRRV OF FOCAL. 1969. 

4WDM0D. BN FOUR-WORD FLOATING POINT PATCHES. 

INITRL. BN INITIRL DIRLOGUE (FOCRL PROGRAM THAT IS NOT REQUIRED 
IF INITIRL DIRLOGUE IS NOT DESIRED>. THIS FILE WAS 
PRODUCED BV CREATING R FOCRL PROGRAM RND THEN PUNCHING 
THE PROGRAM RRER IN BINRRV. 


TO BUILD PS/8 FOCRL. 1971. TRANSFER ALL THE NECESSRRV FILES TO THE ■'DSK:" 
RND GIVE THE FOLLOWING COMMANDS; 


*PFOCRL«FOCDEF. FOCOVR. FOCINT. FOCLIB 
. R RBSLDR 

w >«‘FOCRL. 4WDM0D. PFOCRL. INITRL/1=10200*(ALT MODE5 

. SAVE SVS:PFOCRL 


('FOCINT-' RND 'INITRL-' MRV BE OMITTED) 
'PFOCRL. SV' IS NOW SAVED ON THE SVSTEM DEVICE. 


TO PREPARE VERSIONS PERMITTING THE USE OF DISPLRV AND JOVSTICK FUNCTIONS 
OF THE TEKTRONIX T-4002 GRAPHIC COMPUTER TERMINAL. INSERT FILE 'FDIS' 
(SERIAL INTERFACE 4804> OR '4801' (PARALLEL INTERFACE 4801) AFTER 
'FOCDEF' IN THE COMMAND STRING GIVEN TO PRL8. THE T-4002 VERSIONS 
PROVIDE 10-20X FEWER VARIABLES. 






CHF=lls|C3 IMQ F’OORiL- 


FOR ADDITIONAL INFORMATION^ VOU MAV CONSULT 'ADVANCED FOCAL TECHNICAL 
SPECIFICATIONS-' <ORDER NUMBER DEC-08-AJBB-DL FROM THE DEC PROGRAM 
LIBRARY. DIGITAL EQUIPMENT CORPORATION. MAYNARD. MASSACHUSETTS>. 

NEARLY ALL USER PATCHES TO FOCAL. 1969 CAN BE ADDED TO PS/8 FOCAL. 1971 
WITH ONLY MINOR ADAPTATIONS. SOME POINTS WHICH YOU MAY WISH TO CHECK 
TO INSURE COMPATABILITY INCLUDE; 

1> SOME FOCAL INTERNAL SUBROUTINES AND POINTERS HAVE BEEN CHANGED 

<E. Q. 'POPA" IS NOW A SUBROUTINE CALL>. PS/8 FOCAL ROUTINES WHICH 
PERFORM IDENTICAL FUNCTIONS ARE INCLUDED FOR ALL COMMONLY USED 
ROUTINES. 

2> IN MOST CASES. THE 'HOLES' IN FOCAL. 1969 HAVE BEEN FILLED WITH 
PATCHES. A USER ROUTINE WHICH USES THESE LOCATIONS MUST BE 
RELOCATED. THE VARIABLE SYMBOL TABLE AREA IS RECOMMENDED FOR 
THIS PURPOSE <CHANGE 'STVAR' TO ALLOW FOR PATCHES>. 

USER-DEFINED FUNCTIONS REQUIRE POINTERS IN 'FNTABF' AND 'FNTABL'. 
THE 'FX' AND 'FNEW' SLOTS HAVE BEEN FILLED WITH 'FIN' AND 'FOUT'. 
RECOMMENDED FUNCTIONS TO DELETE FOR EXTRA SLOTS ARE FDIS. FADC AND 
FRAN DEPENDING ON THE NEEDS OF YOUR INSTALLATION. 

4> FOCAL PROPER NOW RESIDES IN FIELD 1 (STARTING ADDRESS 10208>. ANY 
PATCHES TO FOCAL MUST BE LOADED INTO FIELD 1 TO OVERLAY FOCAL. THE 
LIBRARY ROUTINES. PUSHDOWN STACK. AND TEXT STORAGE USE FIELD 0. 

THE FOCOVR. PA SOURCE FILE CONTAINS ALL PATCHES MADE BY PS/8 FOCAL TO 
FOCAL PROPER AND SHOULD BE EXAMINED TO INSURE THERE ARE NO CONFLICTS 
WITH A USER PATCH. 


SOME TERMINALS HAVE 'ESCAPE' OR 'PREFIX' IN PLACE OF 'ALT MODE'. TO 
CAUSE PS/8 FOCAL TO RECOGNIZE THE NON-ALT MODE. FIRST SAVE IT ON THE 
SYSTEM DEVICE. THEN GIVE THE PS/8 MONITOR THE FOLLOWING COMMANDS: 

. GET SYS -.PFOCAL 
. ODT 

17002/0375 223 (ESCAPE) OR 376 (PREFIX) 

-C 

.SAVE SYS-.XFOCAL 


IF PS/8 FOCAL IS TO BE USED IN THE PREPARATION OF NUMERICAL CONTROL 
TAPES. IT WILL BE NECESSARY TO MAKE A CHANGE SO THAT FOUT(141) WILL 
NOT AUTOMATICALLY OUTPUT BOTH A CARRIAGE RETURN AND LINE FEED. TO DO 
THIS FIRST SAVE PS/8 FOCAL ON THE SYSTEM DEVICE. THEN GIVE THE PS/8 
MONITOR THE FOLLOWING COMMANDS; 

. GET SYS:PFOCAL 
. ODT 

17541/4451 4462 
■'C 

. SAVE SYS:NFOCAL 

CHARACTERS OUTPUT WITH 'FOUT' WILL NOT CHANGE THE 'TAB' POSITION. 
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INOEX f=’OR: help* 

--- -■ 


COMMFUSIOS SVMOOLS EUIMCXIOMS 


pi 


p!!«l 


1^ 


pi 


pi /?P!S 




fW 


ELEMENTARY COMMANDS 

ARITHMETIC SYMBOLS 

FABS< > 
FADC< > 

ABSOLUTE VALUE 
ANALOG-DIGITAL 
ARCTANGENT 




nri 1 Wn ? 




FCOS< > 

COSINE 

ASK 


EXPONENTIATION 

FDIS< ) 

DISPLAY 

COMMENT 


MULTIPLICATION 

FEXP< > 

EXPONENTIAL 

CONTINUE 

/ 

DIVISION 

FITR< > 

INTEGER 

DO 

+ 

ADDITION 

FLOG< > 

LOG <BASE E> 

ERASE 

- 

SUBTRACTION 

FRRN< > 

RANDOM NUMBER 

FOR 

<> 

PARENTHESES 

FSGN< ) 

SIGN PART 

GO 

C 3 

SQUARE BRACKETS 

FSIN< > 

SINE 

GOTO 

<> 

ANGLE BRACKETS 

FSQT< > 

SQUARE ROOT 

IF 



FIN< > 

CHARACTER INPUT 

MODIFY 



FOUT< > 

CHARACTER OUTPUT 

QUIT 

SPECIAL CHARACTERS 



RETURN 

-- 




SET 





TYPE 

1 

RETURN/LINE FEED 

M I SCEH_«IMeOUS 

WRITE 

« 

CARRIAGE RETURN 

— -- 



* 

TAB 




X 

OUTPUT FORMATTER 

CHANGES 

FROM FOCAL/1969 

LIBRARY COMMANDS 


SYMBOL TABLE 

DEVICE NAMES 

-- 

M 

QUOTATION NARKS 

DIRECT COMMANDS 


? 

TRACE 

ERROR CODES 

LIBRARY CALL 

E 

POWER-OF-TEN C43 

EXPRESSIONS 

LIBRARY DELETE 


RUBOUT KEY 

FILES 


LIBRARY GOSUB 


CTRL/C 

HIGH SPEED READER 

LIBRARY LIST 


CTRL/G CBELL 3 

INDIRECT COMMANDS 

LIBRARY RUN 


CTRL/L 

INITIAL 

DIALOGUE 

LIBRARY SAVE 


CTRL/P 

LINE NUMBERS 

LIBRARY EXIT 


LINE FEED KEY 

MERGING 

PROGRAMS 



KILL LINE 

NAMES OF FILES 



RETURN KEY 

PRECISION 

FILE COMMANDS 


ALT MODE KEY 

PIP 




SPACE KEY 

PUSHDOWN LIST OVERFLOW 


* 

COMMA 

SAMPLE FILES PROGRAM 

OPEN INPUT 

9 

SEMICOLON 

SIZE OF 

PROGRAMS 

OPEN OUTPUT 



STRINGS 


OPEN RESTORE INPUT 



SUBSCRIPTING 

OPEN RESTORE OUTPUT 



SUMMARY 

OF COMMANDS 

OUTPUT CLOSE 



TAB 



VRRIRBLES 


THE HELP PfiCKflQE FOR PS/8 FOCAL/1971 PERMITS THE ON-LINE REVIEW OF ANV 
OF THE ABOVE WORDS/ PHRASES OR SYMBOLS. HELP IS AVAILABLE ON A DECTAPE 
WHICH SHOULD BE MOUNTED ON DRIVE #1 HAVING BEEN ASSIGNED THE NAME 'DSK:'. 
'HELP' IS REQUESTED WITH THE 'LG HELP' COMMAND <“LET'S GET HELP“> WHILE 
THE USER IS WRITING A PS/8 FOCAL PROGRAM. HE WILL BE RETURNED TO HIS 
PROGRAM <SAVED AS 'FOCAL. TM'> WHEN HE HAS HAD ENOUGH 'HELP'. 











OEOIMFIL. F8SCII COOES 


EOF3: EIIM<> FilMO EOUT < > 


CODE 

CHARACTER 

CODE CHARACTER 

CODE 

CHARACTER 

128 

CTRL/SHFT/P 

160 SPACE 

193 

A 


<LEADER> 

161 ! 

194 

B 

129 

CTRL/A 

162 " 

195 

C 

130 

CTRL/B 

163 « 

196 

D 

131 

CTRL/C 

164 t 

197 

E 

132 

CTRL/D 

165 X 

198 

F 

133 

CTRL/E 

166 & 

199 

G 

134 

CTRL/F 

167 ' 

200 

H 

135 

CTRL/G <BELL> 

168 < 

201 

I 

136 

CTRL/H 

169 > 

202 

J 

137 

CTRL/I 

170 ♦ 

203 

K 

138 

LINE FEED 

171 + 

204 

L 

139 

CTRL/K 

172 . 

205 

M 

140 

CTRL/L 

173 - 

206 

N 

141 

CARRIAGE RETURN 

174 . 

207 

0 

142 

CTRL/N 

175 / 

208 

P 

143 

CTRL/0 

176 0 

209 

Q 

144 

CTRL/P 

177 1 

210 

R 

145 

CTRL/Q 

178 2 

211 

S 

146 

CTRL/R 

179 3 

212 

T 

147 

CTRL/S 

180 4 

213 

U 

148 

CTRL/T 

181 5 

214 

V 

149 

CTRL/U 

182 6 

215 

w 

150 

CTRL/V 

183 7 

216 

X 

151 

CTRL/W 

184 8 

217 

Y 

152 

CTRL/X 

185 9 

218 

z 

153 

CTRL/Y 

186 ; 

219 

c 

154 

CTRL/Z 

187 i 

220 

s 

155 

CTRL/SHFT/K 

188 < 

221 

2 

156 

CTRL/SHFT/L 

189 « 

222 


157 

CTRL/SHFT/M 

190 > 

223 

<r 

158 

CTRL/SHFT/N 

191 ? 

253 

ALT MODE 

159 

CTRL/SHFT/0 

192 0 

255 

RUBOUT 


F0UT<141> WILL OUTPUT fl RETURN/HNEFEED; F0UT<13> WILL 
OUTPUT fl CARRIAGE RETURN ONLY. CODE 144 <CTRL/'P) IS 
PS/e FOCflL'S BREAK CHARACTER. 224 THROUGH 250 ARE 
LOWER-CASE LETTERS ON SOME TERMINALS. MANY TERMINALS 
USE SHIFT/K. /L. AND /M FOR 'I', 'S', AND '2'. 


CODES 0 THROUGH 127 ARE SIMILAR TO 128-255 EXCEPT THAT 
THE HIGH ORDER BIT OF ITS BINARY REPRESENTATION IS 
EQUAL TO ZERO. 









F'OCFIL.^ 


SUMMFIRrV of:* COMMFIMC'S 


EL_E:mEMT«=*R;V COMMFllslOS : 

♦fiSK X.ACCEPT VALUE OF X FROM INPUT DEVICE 

♦COMMENT.IGNORE REST OF LINE 

♦CONTINUE.DUMMV COMMAND 

♦DO CLINE OR GROUP NUMBER!.SUBROUTINE CALL 

^kCQQQC^ 7PPn VaPTPRI 

♦ERASE <LinE or GROUP NUMBER> ! . . !.DELETE LINE OR GROUP 

♦ERASE ALL.DELETE ENTIRE INDIRECT PROGRAM 

♦FOR X=E1C. E2X E3/CCOMMAND].COMMAND REPEATED <ES-E1>/E2+1 TIMES 

♦GO . START PROGRAM EXECUTION AT FIRST LINE 

♦GOTO <L1>.SEND PROGRAM EXECUTION TO LINE LI 

♦ IF <E1>L1C> L2. L3 3; .0. OR + VALUE OF El GIVES NEXT LINE EXECUTED 

♦MODIFV LI.EDIT LINE LI 

♦QUIT.STOP EXECUTION 

♦RETURN . TERMINATE A "DO' OR "LIBRARV GOSUB' SUBROUTINE 

♦SET X=<NUMBER/ VARIABLE OR EXPRESSION> . ASSIGN VALUE TO VARIABLE 

♦TYPE CNUMBERS. VARIABLES. EXPRESSIONS. TEXT IN QUOTES. !. #. :. * OR X3 

♦WRITE C GROUP OR LINE NUMBER 3.LIST PROGRAM 




L_ I BRtFIRV COMMf^lslOS : 


♦LIBRARV CALL C DEVICE: 3<PROGRAM NAME>.LOAD SAVED PROGRAM 

♦LIBRARV DELETE C DEVICE; 3<PROGRRM NAME>.UNSAVE PROGRAM 

♦LIBRARV GOSUB CDEVICE: 3<PROGRAM NAME> CGROUP OR LINE NUMBER 3."DO" 

♦LIBRARV LIST CDEVICE:3CFIRST FILE TO BE LISTED! . CATALOG 

♦LIBRARV RUN CDEVICE: 3<PROGRAM NAME> CLINE NUMBER!.CHAIN 

♦LIBRARV SAVE CDEVICE:3<PROGRAM NAME> . SAVE PROGRAM 

♦LIBRARV EXIT .RETURN TO PS/8 MONITOR 


!=• I l_E COMMI=lMOS: ; 


♦OPEN INPUT CDEVICE: 3CFILE NAME3C. ECHO! ..PREPARE TO READ FILE 

♦OPEN OUTPUT CDEVICE: 3CFILE NAME3C. ECHO3.PREPARE TO WRITE FILE 

♦OPEN RESTORE INPUTC.ECH03 .RESUME INPUT FROM FILE 

♦OPEN RESTORE OUTPUTC. ECHO 3.RESUME OUTPUT TO FILE 


♦OUTPUT CLOSE.OUTPUTS BUFFER; CLOSES OUTPUT FILE 


-input-. ECHO.INPUT IS ECHOED ON OUTPUT DEVICE 

-OUTPUT-.ECHO.OUTPUT IS ECHOED ON TERMINAL 



GEIMEIRFIt- I=' 0 F 3 :M : 

<> ENCLOSE REQUIRED TERMS AND C 3 ENCLOSE OPTIONAL TERMS. 

X IS A VARIABLE. El. E2 AND E2 ARE ARITHMETIC EXPRESSIONS. 

LI. L2. AND L3 ARE LINE NUMBERS. LINE AND GROUP NUMBERS MAV 
BE REPLACED BV ANV EXPRESSION NOT BEGINNING WITH THE LETTER "A". 

. FC AND . FD ARE ASSUMED PROGRAM AND DATA FILE NAME EXTENSIONS. 

FOLLOW COMMANDS WITH A SPACE; ONE LETTER ABBREVIATIONS PERMITTED. 


CTRl—^R* IS F^OCFIl_"S E:RE*=IK CHFIRrF^CTER 
































F»S.-^© F’OCFll—^ ERROR: COOES 

ERROR CODES VALID ONLY FOR 6/1/71 VERSION OF PS/8 FOCAL 


OOOE EXRL-RMFiX I Ols| 

?00. 00 MANUAL START FROM CONSOLE 
701.00 BREAK FROM KEYBOARD VIA ' CTRL/P^ 

701. 40 BAD LINE NUMBER 

701. 91 GROUP NUMBER LARGER THAN 21 

701. ; 3 ZERO IS ILLEGAL LINE NUMBER 

702.22 'DO^ REFERENCED NON-EXISTENT GROUP 

702.52 'DO^ REFERENCED NON-EXISTENT LINE 

703.05 NON-EXISTENT LINE AFTER ''GOTO^ OR 'IF' 

703. 28 ILLEGAL COMMAND 

704.29 BAD VARIABLE IN 'FOR' OR 'SET' COMMAND 

704. 52 EXCESS RIGHT TERMINATORS 

704.60 ILLEGAL TERMINATOR IN 'FOR' OR 'SET' COMMAND 
704. :3 MISSING ARGUMENT IN DISPLAY FUNCTION 
705.48 BAD ARGUMENT IN 'MODIFY' COMMAND 

706. 06 ILLEGAL USE OF A FUNCTION OR NUMBER 

706. 54 TOO MANY VARIABLES 

707. 38 NO OPERATOR BEFORE PARENTHESIS 

707. :9 FUNCTION ARGUMENT MISSING 

707. ;6 ILLEGAL FUNCTION OR DOUBLE OPERATORS 

708. 47 ENCLOSURES DO NOT MATCH 

709. 11 BAD ARGUMENT IN 'ERASE' COMMAND 

710. :5 STORAGE FILLED BY TEXT 

711. 35 INPUT BUFFER OVERFLOW 

715. 28 BAD RESTORE COMMAND 

715. ;1 ATTEMPT TO WRITE PAST END-OF-FILE 
720. 34 LOGARITHM OF ZERO REQUESTED 

722. 23 NO OUTPUT FILE TO RESTORE 

722.51 BAD FILES 'OPEN' COMMAND 

723. 05 DATA FILE NOT FOUND 

723. 15 NO INPUT FILE TO RESTORE 

723. 36 TOO MANY DIGITS IN NUMBER 

723. 39 PUSHDOWN OVERFLOWj PROGRAM TOO LONG 

724. 60 TWO PERIODS IN FILE NAME OR NO NAME 

725. 37 BAD DEVICE OR 2 PAGE HANDLER 

726. 18 BAD LIBRARY COMMAND 

726. 58 NO PROGRAM NAMED BY 'SAVE' COMMAND 

726. 99 EXPONENT TOO LARGE OR NEGATIVE 

727. 10 PROGRAM NOT FOUND 

727.14 'LIBRARY CALL' FROM NON-DIRECTORY DEVICE 

728. 06 'LIBRARY LIST' OF NON-DIRECTORY DEVICE 

728. 73 DIVISION BY ZERO 

729. 53 FILE ALREADY DELETED 

729.68 DEVICE ERROR: WRITE LOCK OR PARITY 

729. 91 CANNOT OPEN OUTPUT FILE 

730. 05 IMAGINARY SQUARE ROOTS REQUIRED 

731. <7 UNAVAILABLE COMMAND OR FUNCTION 

7 ATTEMPT TO READ PAST END-OF-FILE <INPUT IS 

SWITCHED TO TERMINAL AND PROGRAM CONTINUES) 

NOTE. TYPE =. TYPE >> TYPE 1, OR TYPE > OUTPUTS A STRING 
OF ZEROES. THIS CAN BE STOPPED BY HITTING 'CTRL/P'. 

SHOULD YOU EXPERIENCE A PS/8 MONITOR ERROR SUCH AS 
ATTEMPTING TO WRITE ON AN UNSELECTED DEVICE. IT IS 
BEST TO RE-ENTER FOCAL THROUGH THE INITIAL DIALOGUE. 




